0 REM    ***** HK ATLANTIC BOOT *****
5 PRINT"[147]":DV=PEEK(186):IFDV<8THENDV=8
10 POKE53280,0:POKE53281,0:POKE646,1:PRINTCHR$(14):PRINTCHR$(8)
15 GOSUB60000:Q$=CHR$(34)
20 V=10:H=10:GOSUB4145:PRINT"[201]NITIAL [198]ILE [195]HECK."
25 DF$="TOOLBOX117 C000":GOSUB4205
30 DF$="HK3 HARBOUR":GOSUB4205
35 DF$="HK3 BRIDGE":GOSUB4205
40 DF$="GETWORD 1000":GOSUB4205
45 DF$="F.HARBOUR":GOSUB4205
50 DF$="F.BRIDGE":GOSUB4205
55 DF$="NAVIGATION DATA":GOSUB4205
60 DF$="T.HK SAILING":GOSUB4205
65 DF$="T.HK ATTACK":GOSUB4205
70 FORX=1TO3:DF$="H.HK"+STR$(X):GOSUB4205:NEXT
75 REM * V=10:GOSUB4155:H=10:GOSUB4145:PRINT"[193]NY KEY WHEN READY."
80 REM * A$="":GETA$:IFA$=""THEN80
85 GOTO4405
4140 REM    ***** SET CURSOR *****
4145 POKE211,H:POKE214,V:SYS58732:RETURN
4150 REM    ***** LINE DELETE *****
4155 POKE781,V:GOSUB59903
4160 RETURN
4200 REM    ***** FILE CHECK *****
4205 OPEN15,DV,15,"R:"+DF$+"="+DF$:INPUT#15,ER,A$,A,A:CLOSE15
4210 IFER=63THENRETURN
4215 PRINT"[147]":BD=0:BK=0:CH=1:GOSUB5205:H=12:V=12:GOSUB4145:PRINT"[204][207][193][196] [197][210][210][207][210]!"
4220 H=8:V=14:GOSUB4145:PRINT"[198]ILE "+Q$+DF$+Q$+" MISSING.":PRINT"":END
4400 REM    ***** PROGRAM FILE LOAD *****
4405 DF$="HK3 HARBOUR":BD=0:BK=0:CH=0:GOSUB5205:PRINT"[147]"
4410 V=21:H=8:GOSUB4145:PRINT"[197][206][212][197][210][201][206][199][160][200][197][193][196][209][213][193][210][212][197][210][211].[144]"
4415 PRINT"[144]LOAD"Q$DF$Q$","DV
4420 PRINT"RUN":POKE44,24:POKE6144,0
4425 POKE631,13:POKE632,13:POKE633,13:POKE198,3:END
5160 RETURN
5200 REM    ***** COLOUR SET *****
5205 POKE53280,BD:POKE53281,BK:POKE646,CH:RETURN
10000 DV=PEEK(186):OPEN15,DV,15,"S:B.HK3 ATLANTIC":CLOSE15
10005 SAVE"B.HK3 ATLANTIC",DV:END
60000 PRINT"[147]":Z$=" [152]                                      ":POKE214,10:PRINT
60005 PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":FORI=0TO11:PRINTZ$:NEXT
60010 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60015 Z$(0)="[200][213][206][212][197][210]-[203][201][204][204][197][210] [193][212][204][193][206][212][201][195]":Z$(1)="(VERSION 3)"
60020 Z$(2)="([195]) 2000 BY [195]HARLES [195]ALVERT "+CHR$(13)
60025 Z$(3)="[212]HIS PROGRAM IS A COPYRIGHTED WORK."
60030 Z$(4)="[201]T IS NOT SHAREWARE OR IN THE"
60035 Z$(5)="PUBLIC DOMAIN."
60040 Z$(6)="[210]EPORT ILLEGAL DISTRIBUTION OF":Z$(7)="THIS PROGRAM BY CALLING"
60045 Z$(8)="1-905-643-7917.":POKE214,12:PRINT
60050 FORI=0TO8:PRINTTAB(20-(LEN(Z$(I))/2))""Z$(I):NEXT:RETURN